xx <- seq(5, by=4, length.out = 17)
plot(xx %% 15, pch=15, col=rainbow(6), cex=c(2,3))